home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk185 / calc / calcbrains.def < prev    next >
Text File  |  1995-03-19  |  352b  |  31 lines
  1. DEFINITION MODULE CalcBrains;
  2.  
  3.  
  4. TYPE
  5.   OpType =     (OpLeftParen,    (* "("    *)
  6.         OpRightParen,    (* ")"    *)
  7.         OpEqual,
  8.         OpPlus,
  9.         OpMinus,
  10.         OpTimes,
  11.         OpDivide,
  12.  
  13.         OpAnd,
  14.         OpOr,
  15.         OpXor,
  16.  
  17.         OpClearAll);    (* CA    *)
  18.  
  19.  
  20. VAR
  21.   value    : LONGCARD;
  22.   stoValue : LONGCARD;
  23.  
  24.  
  25. PROCEDURE InitBrains(): BOOLEAN;
  26.  
  27. PROCEDURE EnterOperation(op:OpType);
  28.  
  29.  
  30. END CalcBrains.
  31.